


clear 
set scheme lean2, permanent
global pm = char(177)
set more off

gl date = c(current_date)
if c(os) == "MacOSX" gl user "/Users/`c(username)'"
else if c(os) == "Windows" gl user "C:\Users\\`c(username)'"
else if c(os) == "Unix" gl user "/usr/`c(username)'"
di "$user

set graphics on  
 
  
global path_data_processed "\data\processed"
global path_output "\data\output"
 
clear all
set more off

cd "$path_data_processed"
use "experimentRNall.dta", clear

cd "$path_output"
 
  set scheme lean2


tw lpoly z_fin_prosp prior, xtitle("Prior Belief") ytitle("Financial prospects") /*title("Treatment: 5%", size(medium))*/
graph save "lpoly_finprosp.gph", replace

tw lpoly earn_mean prior, xtitle("Prior Belief") ytitle("Earnings growth: Mean") /*title("Treatment: 5%", size(medium))*/
graph save "lpoly_earnmean.gph", replace

tw lpoly earn_sd prior, xtitle("Prior Belief") ytitle("Earnings growth: Uncertainty") /*title("Treatment: 5%", size(medium))*/
graph save "lpoly_earnuncert.gph", replace

tw lpoly jobinsecurity prior, xtitle("Prior Belief") ytitle("Personal Unemployment") /*title("Treatment: 5%", size(medium))*/
graph save "lpoly_persunemp.gph", replace
 


graph combine "lpoly_finprosp.gph" "lpoly_persunemp.gph" "lpoly_earnmean.gph" "lpoly_earnuncert.gph" , xcommon row(2) ///
	name(lpoly, replace)	

	graph export "lpoly_prior_outcomes.pdf", replace




















